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DECUS frogram Library Write-up 


DECUS NO. 8-572 


COMBINATION LETTERING AND DUPLICATOR-CODER PROGRAM 


Abstract 

This program enables labeling and duplication of paper tapes in 
BIN or RIM format. The label is punched directly onto the copy tape and 
duplication can begin immediately. The input and output devices are selected 
automatically. The input can come from the teletype reader or high speed 
reader; output can be on the high speed punch oS* teletype punch. 

The output format is either in BIN, RIM or AutoBIN. Several 
tapes may be combined onto one tape. 

Combination Lettering and Duplicator-Coder program was developed 
by modifying DECUS programs 8-366 (written by A.T. Siy) and 8-181 
(by M.A, Robinton), 

Paper Tapes Available 

BIN tape: locations 10 ~ 1432 

ASCII tap>e: all tabs are represented by a TAB/RUBOUT, hence 
the tape is compressed to speed up assembly. The 21T code may be 
changed to the corresponding eight spaces by reading the ASCII tape 
into Symbolic Editor and punching a new tape with Bit 1 set to zero. 

In addition, there are three PAUSE'S in the tape. The program was 
assembled using DECUS 8—138, Pal 111.5 (by J.C. Kilbane), which used 
a PAUSE statement to facilitate in paging. 

Machine Requirements 

4K PDP — 8 with Teletype. High Speed Reader/Puncn optional 
Operating Procedure 

1) Load the BIN tape into the computer 

2) Turn on the high speed reader and/or punch if it will be used. 

3) Start the program at location 0200 . 

4 ) The computer will halt if the teletype reader or punch will be used. 
The punch should be turned on now. The reader will not be used until 
later and may be left off. 

5) Type the label. All letters and numbers are legal, plus ASCII 
codes 241 through 257, 277 - 300 and 333 to 337. If the high speed punch 
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is being used, the characters will be acknowledged on the teletype printer. 
With low speed punching, garbage will be printed. 

Note: there is no large buffer in the label program. Be patient and 
wait until each letter has been punched before continuing to type. 

6) Hitting the RETURN key will produce blank tape followed by a 
HALT to enable loading of the master tape. Also for those using the low 
speed punch, the Halt reminds them to turn off the punch, because a 
command will haiee to be entered in, which will otherwise be reproduced 
on the tape if the punch is left on (see below). 

7) ”To duplicate without coding (without Auto start address) type 

• G • (GO). To code the first and intermediate blocks of a multiple block 
tape type 'C* (CONTINUE). To code the final trailer of a tape for auto¬ 
matic start, type the starting address (up to four digits with leading 
zeros not necessary) then t3rpe 'G’. 

’•AutoBIN will not automatically start from 0000 to 0077, therefore, 
do not attempt to code tapes with these addresses for they will be ignored 
by the coder. 

"If more than four digits are typed in the address, the last four 
digits will be the ones code for auto starting. Also, a carriage return 
will reset the starting address to be coded to zero. You may now type 
'G' , •€', or a starting address and 'G*. Illegal characters will be 
echoed back on the Ti^etype but will be ignored. After the first digit of 
an address, 'C* is illegal" 

_ M.A. Robinton 

8) After the trailer has been punched out, the program will jump back 
to the label section and continues to use the same I-O devices. Another 
tape may be duplicated. To change I-O devices, follow the Operating 
Procedures from step two. 

Optional Modifications 

1) The step six HALT may be NOPed at location 0243. Or it can be 
re—programmed as to halt only for low speed I-O by depositing a 4071 
(JMS CHECK) at 0243. 

2) A HALT may be added before the program jumps from the duplicator 
section to the label section (step eight) at location 1357. Or the re-program- 
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ming can be done by depositing the 4071 at 1357. 


Program Description 

The program begins by determing I—O devices (Jms Z Initil at 0206)« 
Then a character is inputted and a test made for the RETURN key (loc 0217). 
Letters are punched onto tape after finding the corresponding matrix 
pattern (loc 223) 

In the duplication section^ commands are first initialized (loc 1240), 
followed by the input of the commandl, which is decoded (loc 1204) and 
acted out. With duplication of the tape goes a checksum count (loc 110, 
similar to the BIN loader). Any reader error will be noted and a message 
will alert the operator (loc 1326), 

With the ability to duplicate as well as label copyed tapes, a 
convenience has been made available which may help to keep tapes 
organized if large numbers of programs are being copyed and will be 
labeled with a sticker later. Other programs can be combined with 
labeling routines, such as the Binary tape consolidator programs. 

Storage Utilization 

Page Zero locations 10 - 177 

SuDroutines 

Punching Code 200 

Issue CR/LF 

Determine I-O device 

Checksum Counter 

High and Low speed I-O routines 

Page One locations 200 — 317 

Lettering Program 

Punching of Letters 
Generation of Blank Tape 
I-O routines and pointers 


Pages Two, Three locations 400- 1177 

and Four 

Vlatrix Patterns Table 
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Pages Five and Six locations 1200 - .1432 

Duplication Program 

Initialization 
Command Decoder 
Checksum Calculation 
Checksum Error Message Text 
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Program Listing 


001 
002 
003 
004 
005 
006 
007 
008 
009 
0 10 
0 1 1 
012 
0 13 
0 14 
0 1 5 
0 16 
017 
0 18 
0 19 
020 
021 
022 
023 


/COMBINATION LETTERING PROGRAM AND 
/DUPLICATION-CODER FOR AUTO BIN. 
/MODIFICATIONS HAVE BEEN MADE TO DECUS 
/PROGRAMS 8-366 (WRITTEN BY A.T. SIY) AND 
/8-181 (BY M.A. ROBINTON) 

/ 

/PROGRAM WILL AUTOMATICALLY SELECT 
/THE APPROPRIATE OUTPUT DEVICE. 

/IF LOW SPEED OUTPUT IS BEING USED^ 

/REMEMBER TO TURN OFF THE PUNCH AFTER 
/TYPING THE LABEL OR ELSE THE DUPLICATION 
/COMMAND WILL BE PUNCHED ONTO TAPE. 

/THERE IS A HALT TO ALLOW FOR THIS. 

/ 

/A CARRIAGE RETURN IN THE LABEL SECTION 
/WILL RESULT IN A JUMP TO THE DUPLICATION. 

/ 

/AT THE 0\ID OF DUPLICATION, THE PROGRAM WILL 
/JUMP BACK TO THE LABEL SECTION AND ASSUMES 
/THE SAME I-O DEVICES WILL BE USED. 

/ 

/PROGRAMMER: RONALD A. WONG 

1972 

PAL III OR PAL 11 I. 5 
38 BY J.C. KILBANE) 


024 



/DATE: 

AUGUST 10, 

025 



/SOURCE 

LANGUAGE: 

026 



/ 

(DECUS 8-1 

027 





028 



/ 


029 





0 30 



♦ 10 


031 

0010 

0215 

CR, 

215 

032 

001 1 

0212 

LF, 

212 

0 33 

0012 

7770 

P7770, 

7770 

0 34 

0013 

747 1 

MG, 

-307 

035 

0014 

7475 

MC, 

-303 

0 36 

0015 

7563 

MCR, 

-215 

0 37 

0016 

77 10 

ML OR, 

-70 

0 38 

0017 

0077 

P77, 

77 

0 39 

0020 

0200 

P200, 

200 

0 40 

0021 

0007 

P7, 

7 

041 

0022 

7520 

M260, 

-260 

0 42 

0023 

7775 

M3, 

-3 

043 

0024 

0300 

P300, 

300 

0 44 

0025 

0000 

LDTR, 

0 

045 

0026 

1016 


TAD MLDR 

0 46 

0027 

3170 


DCA HOLOA 

047 

0030 

1020 


TAD P200 

0 48 

0031 

3167 


DCA COLLCT 

0 49 

0032 

4124 


JMS PUNCH 

0 50 

0033 

2170 


ISZ HOLDA 

051 

0034 

5032 


JMP .-2 

052 

0035 

5425 


JMP I LDTR 

053 

0036 

0000 

CRLF, 

0 


/PUNCH LEADER TRAILER 
/CODE 200 


/ISSUE CARRIAGE RETURN 
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0S4 

0037 

1010 


TAD 

CR 

0bS 

0040 

6046 


TLS 


0 56 

0041 

7200 


CL A 


057 

0042 

101 1 


TAD 

LF 

0 58 

0043 

4153 


JMS 

PORD 

0 59 

0044 

7200 


CL A 


060 

0045 

5436 


JMP 

I CRLF 

061 

0046 

0000 

INITIL, 

0 


062 

0047 

6014 


RFC 


063 

0050 

6032 


KCC 


064 

0051 

1020 


TAD 

P200 

065 

0052 

6046 


TLS 


066 

0053 

6026 


PLS 


067 

0054 

6041 


TSF 


0 68 

0055 

5054 


JMP 

1 

069 

0056 

7200 


CL A 


070 

0057 

601 1 


RSF 


07 1- 

0060 

1160 


TAD 

LORD 

072 

0061 

1161 


TAD 

HI RD 

073 

0062 

3174 


DCA 

READ 

074 

0063 

6021 


PSF 


075 

0064 

1162 


TAD 

PLO 

076 

0065 

1 163 


TAD 

PHI 

077 

0066 

3177 


DCA 

WRI TE 

0 78 

0067 

4071 


JMS 

CHECK 

0 79 

0070 

5446 


JMP 

I INITIL 

080 

0071 

0000 

CHECK# 

0 


08 1 

0072 

1174 


TAD 

READ 

082 

0073 

7041 


CIA 


083 

0074 

1 161 


TAD 

HI RD 

084 

0075 

7640 


SLA 

CL A 

085 

0076 

5103 


JMP 

STOP 

086 

0077 

1177 


TAD 

WRI TE 

087 

0100 

7041 


CIA 


088 

0101 

1163 


TAD 

PHI 

089 

0102 

7640 


SZA 

CLA 

09 0 

0103 

7402 

STOP# 

HLT 


09 1 

0104 

6032 


KCC 


092 

0105 

5471 


JMP 

I CHECK 

093 

0106 

0000 

GET# 

0 


09 4 

0107 

4574 


JMS 

I READ 

09 5 

01 10 

3170 


DCA 

HOLDA 

09 6 

01 1 1 

1 166 


TAD 

TEMP 

097 

01 12 

1167 


TAD 

COLLCT 

098 

0113 

3166 


DCA 

TEMP 

099 

01 14 

1171 


TAD 

HOLDB 

1 00 

01 15 

3173 


OCA 

HOLDC 

101 

01 16 

1 167 


TAD 

COLLCT 

102 

01 17 

3171 


DCA 

HOLDB 

103 

0120 

1170 


TAD 

HOLDA 

1 04 

0121 

3167 


DCA 

COLLCT 

105 

0122 

1 167 


TAD 

COLLCT 

106 

0123 

5506 


JMP 

I GET 

107 

0124 

0000 

PUNCH# 

0 



/LINE FEED 


/INITILIZE READEKS AND PUNCHES 


/CHECK FOR HIGH SPEED READER 

/CHECK FOR HIGH SPEED PUNCH 

/CHECK I-O DEVICES 

/HALT IF LO SPEED 
/I-O DEVICES 


/STOP IF LO SPEED 

/GET A CHARACTER FROM 
/TAPE READ 
/SAVE CHARACTER 
/DO CHECKSUMMING 

/SAVE LAST TWO CHARACTER 


/OUTPUT CHARACTER TO TAPE 
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108 

0125 

7200 


CLA 

1 09 

0126 

1167 


TAD COLLCT 

1 10 

0127 

4577 


JMS I WRITE 

1 1 1 

0130 

7200 


CLA 

1 12 

0131 

5524 


JMP I PUNCH 

1 13 

0132 

0000 

RHI> 

0 

1 \A 

0133 

7200 


CLA 

1 15 

0134 

6011 


RSF 

1 16 

0135 

5134 


JMP .-1 

1 17 

0136 

6016 


RRB RFC 

1 18 

0137 

5532 


JMP I RHI 

1 19 

0140 

0000 

RLO> 

0 

120 

0141 

7200 


CLA 

121 

0142 

6031 


KSF 

1 22 

0143 

5142 


JMP .-1 

123 

0144 

60 36 


KRB 

1 2A 

0145 

5540 


JMP I RLO 

125 

0146 

0000 

PI RD, 

0 

126 

0147 

6021 


PSF 

127 

0150 

5147 


JMP .-1 

128 

0151 

6026 


PLS 

129 

0152 

5546 


JMP I PIRD 

1 30 

0153 

0000 

PORD, 

0 

131 

0154 

6041 


TSF 

1 32 

0155 

5154 


JMP 1 

1 33 

0156 

60 46 


TLS 

1 34 

0157 

5553 


JMP I PORD 

1 35 

0160 

0006 

LORD^ 

RLO-RHI 

1 36 

0161 

0132 

HI RD> 

RHI 

1 37 

0162 

0005 

PLO# 

PORD-PIRD 

1 38 

0163 

0146 

PHI, 

PI RD 

1 39 

0164 

0000 

LINK, 

0 

140 

0165 

0000 

CKL, 

0 

141 

0166 

0000 

TEMP, 

0 

1 42 

0167 

0000 

COLLCT, 

0 

1 43 

0170 

0000 

HOLDA, 

0 

1 44 

0171 

0000 

HOLDS, 

0 

145 

0172 

0000 

CODE, 

0 

1 46 

0173 

0000 

HOLDC, 

0 

147 

0174 

0000 

READ, 

0 

1 48 

0175 

0000 

STORE, 

0 

1 49 

0176 

1374 

M SG, 

TAG 

1 50 
151 

1 52 

0177 

0000 

WRITE, 

PAUSE 

0 


/READ HIGH SPEED 


/READ LO SPEED 


/PUNCH HIGH SPEED 


/PUNCH LO SPEED 




001 






001 






002 






003 






004 






005 



* 0200 



006 




/START ROUTINE 


007 

0200 

6032 

M STARTs 

KCC 

/CLEAR AC A KB FLAG 

008 

0201 

6046 


IT-S 


009 

0202 

7200 


CLA 


0 10 

0203 

1301 


TAD LOG 

/ADDR OF CHAR TAG 

0 1 1 

0204 

3274 


DCA TEMA 

/DEPOSIT IN TEMA 

0 12 






0 13 




/LOOP ROUTINE 


0 14 

0205 

7200 

LOOP, 

CLA 


0 15 

0206 

4046 


JMS Z INI TIL 

/FIND OUTPUT DEVICE 

0 16 

0207 

4304 


JMS ACCEPT 


0 17 

0210 

1303 


TAD NK146 

/IS IT HIGH SPEED 

0 18 

021 1 

1177 


TAD Z WRITE 

/OUPUT? 

0 19 

0212 

7650 


SNA CLA 


020 

0213 

4312 


JMS TYPE 

/YES: THEN ECHO INPUT 

021 

0214 

1320 


TAD INPUT 

/NO: GET INPUT 

022 

0215 

327 7 


DCA CHAR 

/STORE CHARACTER 

023 

0216 

1277 


TAD CHAR 

/BRING OUT CHAR & TEST 

024 

0217 

127 1 


TAD NK215 

/FOR CR 

025 

0220 

7650 


SNA CLA 

/NOT CR, THEN SKIP 

026 

0221 

5236 


JMP T^AIL 

/YES, GO TO TRAIL ROUTIi 

027 

0222 

1277 


TAD CHAR 

/BRING OUT CHAR 

028 

0223 

1272 


TAD D240 

/SUBTRACT 240 

0 29 

0224 

3300 


DCA DUh 

/STORE DIFFERENCE 

0 30 

0225 

1300 


TAD 01 FP 


031 

0226 

7106 


CLL RTL 

/TO LOCATE LOC OF CHAR 

032 

0227 

1300 


TAD DIFF 


0 33 

0230 

1300 


TAD DIFF 


0 34 

0231 

1301 


TAD LOC 

/ADDRESS OF CHAR FOUND 

035 

0232 

3274 


DCA TEMA 

/KEEP IN TEMS 

0 36 

0233 

4245 


JMS COUNT 


0 37 

0234 

7200 


CLA 


038 

0235 

5207 


JMP LOO P+2 


0 39 






040 




/TRAILER ROUTINE (BLANK SPACES) 

041 

02 36 

1270 

TRAIL, 

TAD Ml 44 


0 42 

0237 

3275 


DCA CNT 


043 






044 




/REPEAT ROUTINE 


045 

0240 

4261 

MREPEAT. 

9 

JMS PNCH 

046 

0241 

2275 


ISZ CNT 


0 47 

0242 

5240 


JMP MREPEAT 


0 48 

0243 

7402 


HL T, 

/GIVE TIME TO TURN OFF 

049 





/PUNCH. THEN HIT 'CONTI 

050 

0244 

5702 


JMP- I PDUP 

/DONE: GOTO DUPLICATION 

051 






0 52 




/COUNTER ROUTINE 


-8 



053 

0245 

7200 

COUNT, 

CL A 


054 

0246 

1273 


TAO M6 


055 

0247 

3276 


OCA WC 


056 

0250 

1674 

CONT, 

TAO I TEMA 


0 57 

0251 

0267 


ANO A377 


0 58 

0252 

4261 


JMS PNCH 


059 

0253 

2274 


I SZ TEMA 


060 

0254 

2276 


ISZ WC 


061 

0255 

5250 


JMP CONT 


0 62 

0256 

4261 


JMS PNCH 


063 

0257 

4261 


JMS PNCH 


064 

0260 

5645 


JMP I COUNT 


065 






066 




/PUNCH ROUTINE 


067 

0261 

0000 

PNCH, 

0 


068 

0262 

1266 


TAO OUT 


069 

0263 

3167 


OCA Z COLLCT /BUFFER FOR 

OUTPUT 

070 

0264 

4124 


JMS Z PUNCH 


071 

0265 

5661 


JMP I PNCH 


072 






073 




/PARAMETERS 


074 

0266 

0000 

OUT, 

0 


075 

0267 

0377 

A377, 

377 


076 

0270 

7634 

M 144, 

- 144 


077 

0271 

7563 

NK 21 5, 

-215 


0 78 

0272 

7540 

0240, 

-240 


0 79 

0273 

7772 

M6, 

-6 


080 

0274 

0000 

TEMA, 

0 


08 1 

0275 

0000 

CNT, 

0 


082 

0276 

0000 

MC, 

0 


083 

0277 

0000 

CHAR, 

0 


084 

0300 

0000 

01 FF, 

0 


085 

0301 

0400 

LOC, 

MTAG 


086 

0302 

1237 

POUP, 

OUP /ADORESS OF 

OUPLI C/ 

087 

0303 

7632 

NK 146, 

- 146 


088 






089 




/ACCEPT CHARACTER ROUTINE 


09 0 

0304 

7402 

ACCEPT, 

HLT 


09 1 

0305 

6031 


KSF 


092 

0306 

5305 


JMP 1 


093 

0307 

6036 


KRB 


09 4 

0310 

3320 


OCA INPUT 


095 

0311 

5704 


JMP I ACCEPT 


096 






097 




/TYPE ROUTINE (TELETYPE) 


098 

0312 

7402 

TYPE, 

HLT 


099 

0313 

1320 


TAO INPUT 


1 00 

0314 

6041 


TSF 


101 

0315 

5314 


JMP >-l 


102 

0316 

6046 


TLS 


103 

0317 

5712 


JMP I TYPE 


1 04 

0320 

0000 

INPUT, 

0 


1 05 






106 



PAUSE 
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♦ 04B0 


001 

002 

003 

00 ^ 

001 

002 

003 

004 

0400 
0401 
0402 
0403 
0404 
0405 
005 0406 

0407 
0410 
041 1 
006 0412 

007 0413 

0414 
0415 
0416 
0417 
008 0420 

009 0421 

0422 
0423 
0424 
0425 
010 0426 

011 0427 

0430 
0431 
0432 
0433 
012 0434 

013 0435 

0436 
0437 
0440 
0441 
014 0442 

015 0443 

0444 
0445 
0446 
0447 
016 0450 

017 0451 

0452 
0453 
0454 


,MTAG 

0000 
0000 
0000 
0000 
0000 
0000 
0000 
0016 
0277 
0016 
0000 
0000 
0000 
0007 
0000 
0007 
0000 
0000 
0044 
0377 
0044 
0377 
0044 
0000 
0106 
0201 
0377 
0211 
0221 
01 42 
0107 
0045 
0027 
0350 
0244 
034a 
0140 
0220 
0216 
0221 
0105 
0242 
0000 
0003 
0007 


/CHARACTEKS TAGS TABLE 


0i 0; 01 01 01 01 0 / BLANK SPACES 


161 2771 161 0 
0 / ! 


01 71 01 71 0 

0 /" 


441 3771 441 3771 44 
0 / # 


10612011 377121 11 221 
142 /$ 


1071 451 271 3501 244 
343 /% 


1401 2201 2161 2211 105 
242 /& 
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0455 

0003 



0 18 

0456 

0000 

0; 3J li 3i 0 


0 19 

0457 

0000 

0 

/ • 


0460 

0000 




0461 

0074 




0462 

0102 




0463 

0201 



020 

0464 

0000 

0j 74i 102i 20n 0 


021 

0465 

0000 

0 

/ ( 


0466 

0000 




0467 

0201 




0470 

0102 




047 1 

0074 



022 

0472 

0000 

0} 2011 1021 7 41 0 


023 

0473 

0000 

0 

/) 


0474 

0020 




0475 

0070 




0476 

0376 




0477 

0376 



024 

0500 

0070 

201 701 3761 3761 70 

025 

0501 

0020 

20 



0502 

0010 




0503 

0010 




0504 

0176 




0505 

0010 



026 

0506 

0010 

101 101 1761 101 10 

027 

0507 

0000 

0 

/•f 


0510 

0000 




051 1 

0200 




0512 

0160 




0513 

0060 



028 

0514 

0000 

01 2001 1601601 0 


029 

0515 

0000 

0 

/ 3 


0516 

0010 




0517 

0010 




0520 

0010 




0521 

0010 



0 30 

0522 

0010 

101 101 101 101 10 


031 

0523 

0010 

10 

/- 


0524 

0000 




0525 

0100 




0526 

0340 




0527 

0340 



0 32 

0530 

0100 

01 1001 3401 3401 

100 

033 

0531 

0000 

0 

/• 


0532 

0200 




0533 

0100 




0534 

0040 




0535 

0020 



0 34 

0536 

0010 

2001 1001 401 201 

10 

0 35 

0537 

0000 

0 

// 


0540 

0176 




0541 

0301 




0542 

0241 
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0543 

0221 


0 36 

0544 

0211, 

, 1761 3011 241J 2211 21 1 

0 37 

0545 

0176 

176 /0 


0546 

0000 



0547 

0202 



0550 

0377 



0551 

0200 


0 38 

0552 

0000 

0i 202t 3771 200J 0 

0 39 

0553 

0000 

0 / 1 


0554 

0302 



0555 

0241 



0556 

0221 



0557 

0201 


040 

0560 

0211 

302; 2411 221i 201; 21 1 

041 

0561 

0206 

206 /2 


0562 

0102 


0563 

0201 



0564 

0201 



0565 

0211 


0 42 

0566 

0211 

102; 201; 201; 2i i; 211 

043 

0567 

0166 

166 /3 


0570 

0060 


0571 

0050 



0572 

0044 



0573 

0042 


044 

0574 

0377 

60; 50; 44; 42; 377 

045 

0575 

0040 

40 / 4 


0576 

0117 



0577 

0201 



0600 

0205 



0601 

0205 


046 

0602 

0205^ 

117;20l;205;205;205 

047 

0603 

0171 

171 /5 


0604 

0176 



0605 

0211 



0606 

0211 



0607 

0211 


048 

0610 

021 t 

176; 211; 211; 211; 2i i 
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